' 
' Copyright (C) 2014 Infinity CCS Ltd (http://www.infinityccs.com/)
' Copyright (C) 2008 Sasa Coh <sasacoh@gmail.com>
'
' This program is free software; you can redistribute it and/or modify
' it under the terms of the GNU General Public License as published by
' the Free Software Foundation; either version 3 of the License, or
' (at your option) any later version.
'
' This program is distributed in the hope that it will be useful,
' but WITHOUT ANY WARRANTY; without even the implied warranty of
' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
' GNU General Public License for more details.
'
' You should have received a copy of the GNU General Public License
' along with this program.  If not, see <http://www.gnu.org/licenses/>. 
'/


Imports System
Imports System.Collections.Generic
Imports System.Text

Namespace Common.Config
#Region "Null Pattern"
  ''' <summary>
  ''' 
  ''' </summary>
  Public Class NullAccount
    Inherits IAccount

    Public Overrides Function ToString() As String
      Return "New Account"
    End Function

    Public Overrides Property Enabled As Boolean
      Get
        Return False
      End Get
      Set(value As Boolean)

      End Set
    End Property

    Public Overrides Property AccountName As String
      Get
        Return ""
      End Get
      Set(value As String)

      End Set
    End Property

    Public Overrides Property HostName As String
      Get
        Return ""
      End Get
      Set(value As String)

      End Set
    End Property

    Public Overrides Property UserName As String
      Get
        Return ""
      End Get
      Set(value As String)

      End Set
    End Property

    Public Overrides Property Password As String
      Get
        Return ""
      End Get
      Set(value As String)

      End Set
    End Property

    Public Overrides Property DisplayName As String
      Get
        Return ""
      End Get
      Set(value As String)

      End Set
    End Property

    Public Overrides Property DomainName As String
      Get
        Return ""
      End Get
      Set(value As String)

      End Set
    End Property

    Public Overrides ReadOnly Property Key As String
      Get
        Return "-1"
      End Get
    End Property

    'Public Property Port As Integer
    '  Get
    '    Return 0
    '  End Get
    '  Set(value As Integer)

    '  End Set
    'End Property


    Public Overrides Property ProxyAddress As String
      Get
        Return ""
      End Get
      Set(value As String)

      End Set
    End Property

    Public Overrides Property TransportMode As ETransportMode
      Get
        Return ETransportMode.TM_UDP
      End Get
      Set(value As ETransportMode)

      End Set
    End Property

    Public Overrides ReadOnly Property IsNull As Boolean
      Get
        Return True
      End Get
    End Property

  End Class
#End Region
End Namespace
